Added file type

diff --git a/intdoc/SA2003_an1_dump.pl b/intdoc/SA2003_an1_dump.pl
index 10ec33f78f49704ccf26166788d31c01df42a003..5bbb690d1b4e624406c64f6e20bbf41f1fa29c7a 100644 (file)
--- a/intdoc/SA2003_an1_dump.pl
+++ b/intdoc/SA2003_an1_dump.pl
@@ -60,11 +60,14 @@ sub decodeGuid {
 undef $/;
 $file = <>;
 
+@filetypes = qw( drawing road trail waypoint track );
+
 # read file header
-($magic, $unk1 ) = shiftunpack( 'ss' );
+($magic, $filetype ) = shiftunpack( 'ss' );
 
 print <<END;
 MAGIC   $magic
+$filetypes[$filetype] layer
 
 END